object dmDadosFornecedores: TdmDadosFornecedores
  OldCreateOrder = False
  Left = 338
  Top = 130
  Height = 409
  Width = 534
  object sqlTblfor: TSQLDataSet
    CommandText = 'select *'#13#10'from tblfor'
    DbxCommandType = 'Dbx.SQL'
    MaxBlobSize = -1
    Params = <>
    SQLConnection = dmConexao.SQLConnection
    Left = 240
    Top = 32
  end
  object dspTblfor: TDataSetProvider
    DataSet = sqlTblfor
    UpdateMode = upWhereKeyOnly
    OnUpdateError = dspTblforUpdateError
    Left = 240
    Top = 88
  end
  object cdsTblfor: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'dspTblfor'
    AfterInsert = cdsTblforAfterInsert
    BeforePost = cdsTblforBeforePost
    BeforeCancel = cdsTblforBeforeCancel
    Left = 240
    Top = 144
    object cdsTblforforcnpj: TStringField
      FieldName = 'forcnpj'
      Required = True
      OnValidate = cdsTblforforcnpjValidate
      Size = 18
    end
    object cdsTblforfortip: TIntegerField
      FieldName = 'fortip'
      Required = True
      OnValidate = cdsTblforfortipValidate
    end
    object cdsTblforforrazaosocial: TStringField
      FieldName = 'forrazaosocial'
      Required = True
      OnValidate = cdsTblforforrazaosocialValidate
      Size = 60
    end
    object cdsTblforforie: TStringField
      FieldName = 'forie'
      OnValidate = cdsTblforforieValidate
      Size = 15
    end
    object cdsTblforforender: TStringField
      FieldName = 'forender'
      Required = True
      OnValidate = cdsTblforforenderValidate
      Size = 50
    end
    object cdsTblforfornro: TStringField
      FieldName = 'fornro'
      OnValidate = cdsTblforfornroValidate
      Size = 5
    end
    object cdsTblforforcompl: TStringField
      FieldName = 'forcompl'
      Size = 15
    end
    object cdsTblforforbairro: TStringField
      FieldName = 'forbairro'
      Required = True
      OnValidate = cdsTblforforbairroValidate
      Size = 30
    end
    object cdsTblforforcep: TStringField
      FieldName = 'forcep'
      Required = True
      OnValidate = cdsTblforforcepValidate
      EditMask = '99999\-999;1;_'
      Size = 9
    end
    object cdsTblforforcidade: TStringField
      FieldName = 'forcidade'
      Required = True
      OnValidate = cdsTblforforcidadeValidate
      Size = 40
    end
    object cdsTblforforuf: TStringField
      FieldName = 'foruf'
      Required = True
      Size = 2
    end
    object cdsTblforforemail: TStringField
      FieldName = 'foremail'
      OnValidate = cdsTblforforemailValidate
      Size = 60
    end
    object cdsTblforforfone: TStringField
      FieldName = 'forfone'
      EditMask = '\(99\)999999999;1;_'
      Size = 15
    end
    object cdsTblforforfax: TStringField
      FieldName = 'forfax'
      EditMask = '\(99\)999999999;1;_'
      Size = 15
    end
  end
  object sqlExisteForcnpj: TSQLDataSet
    CommandText = 
      'select forcnpj, forrazaosocial'#13#10'from tblfor'#13#10'where forcnpj = :fo' +
      'rcnpj'
    DbxCommandType = 'Dbx.SQL'
    MaxBlobSize = -1
    Params = <
      item
        DataType = ftString
        Name = 'forcnpj'
        ParamType = ptInput
      end>
    SQLConnection = dmConexao.SQLConnection
    Left = 80
    Top = 88
    object sqlExisteForcnpjforcnpj: TStringField
      FieldName = 'forcnpj'
      Required = True
      Size = 18
    end
    object sqlExisteForcnpjforrazaosocial: TStringField
      FieldName = 'forrazaosocial'
      Required = True
      Size = 60
    end
  end
end
